open(FILE,">>","kernel/kernel.asm") or die $!;
@array=(qw/divide_error single_step_exception
	  nmi breakpoint_exception overflow
	bounds_check inval_opcode copr_not_available
	double_fault copr_seg_overrun inval_tss
	segment_not_present stack_exception general_protector
	page_fault undefine copr_erro/);
select FILE;
print "\n";
#for($i=0;$i<17;$i++){
#print "$array[$i]:\n";
#print "	push	0xFFFFFFFF\n";
#print "	push	$i\n";
#print "	jmp	exception\n";
#}
for($i=0;$i<16;$i++){
	print "hwint".$i.":\n";
	print "	call handler\n";
	print "	iret\n";
}
close(FILE);

	
